unit uprincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnMenus, RibbonActnMenus, ActnList, ActnMan, ToolWin, ActnCtrls,
  Ribbon, RibbonLunaStyleActnCtrls;

type
  Tfprincipal = class(TForm)
    Ribbon1: TRibbon;
    RibbonPage1: TRibbonPage;
    RibbonGroup1: TRibbonGroup;
    RibbonPage2: TRibbonPage;
    ActionManager1: TActionManager;
    Action1: TAction;
    RibbonApplicationMenuBar1: TRibbonApplicationMenuBar;
    RibbonGroup2: TRibbonGroup;
    Action2: TAction;
    procedure Action1Execute(Sender: TObject);




  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fprincipal: Tfprincipal;

implementation
           uses umunicipio;
{$R *.dfm}






procedure Tfprincipal.Action1Execute(Sender: TObject);
begin
application.CreateForm(tfmunicipio, fmunicipio);
fmunicipio.ShowModal;
end;


end.
